home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Herra
/
SLANG10.ZIP
/
MULT.VEC
< prev
next >
Wrap
Text File
|
1997-09-14
|
1KB
|
74 lines
ZOOM(1,1)
FILL(1)
COLOR(12)
STYLE(1, 1)
RECTANGLE(0, 0, 640,480)
alfa = 0
xs1 = 20: ys1 = 20
xs2 = 9: ys2 = 9
FOR x = 0 TO 1
FOR y = 0 TO 3
RECTANGLE(150*x+15,90*y+15,150*x+20,90*y+20))
xx=150*x+80: yy=90*y+60
COLOR(12)
STYLE(1, 12)
ELLIPSE(xx,yy,0,360,20,20)
COLOR(5)
STYLE(1, 5)
ELLIPSE(xx-xs2,yy+ys2,0,360,5,5)
COLOR(14)
STYLE(1,14)
i=xx+xs1: j=yy+ys1
ROTATE(30*alfa, i,j)
POLY(11,i,j-9,i+4,j-3,i+9,j-3,i+5,j+3,i+8,j+8,i,j+5,i-7,j+8,i-4,j+4,i-8,j-3,i-4,j-3,i,j-9)
alfa = alfa + 5
ROTATE(0, i,j)
COLOR(2)
STYLE(1,2)
ELLIPSE(i,j,0,360,5,5)
xs1 = xs1 - 6
ys1 = ys1 - 6
xs2 = xs2 - 3
ys2 = ys2 - 3
NEXT
NEXT
xs2 = 9: ys2 = 9
FOR x = 2 TO 3
FOR y = 0 TO 3
RECTANGLE(150*x+15,90*y+15,150*x+20,90*y+20))
xx=150*x+80: yy=90*y+60
COLOR(14)
STYLE(1,14)
i=xx+xs1: j=yy+ys1
ROTATE(alfa,i,j)
POLY(11,i,j-9,i+4,j-3,i+9,j-3,i+5,j+3,i+8,j+8,i,j+5,i-7,j+8,i-4,j+4,i-8,j-3,i-4,j-3,i,j-9)
ROTATE(0,i,j)
COLOR(2)
STYLE(1,2)
ELLIPSE(i,j,0,360,5,5)
COLOR(12)
STYLE(1, 12)
ELLIPSE(150*x+80,90*y+60,0,360,20,20)
COLOR(15)
STYLE(1, 15)
ELLIPSE(xx-xs2,yy+ys2,0,360,5,5)
xs1 = xs1 + 6
ys1 = ys1 + 6
xs2 = xs2-3
ys2 = ys2-3
NEXT
NEXT